home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program56
< prev
next >
Wrap
Text File
|
2007-02-28
|
441b
|
20 lines
0010 // PROGRAM 56
0020 //
0030 // COMELY KATE
0040 //
0050 // TO PRINT EVERY SECOND ELEMENT OF AN ARRAY
0060 //
0070 ZONE 2
0080 DIM LISST(20)
0090 FOR COUNT#:=1 TO 20 DO
0100 READ LISST(COUNT#)
0110 ENDFOR COUNT#
0120 //
0130 FOR COUNT#:=1 TO 20 STEP 2 DO
0140 PRINT LISST(COUNT#),
0150 ENDFOR COUNT#
0160 //
0170 DATA 98.6,45.7,67.9,45.6,34.9,56.7,54.8,89.7,99.9,56.7,45.9,47.8,67.6
0180 DATA 77.7,68.9,88.5,99.6,87.5,77.5,56.9
0190 END